Chip 2004 September (Special)/Chip-Special_2004-09_Digitalni-Hudba.bin/servis/invest/dskinv.exe/{app}/di.exe/0/RCDATA/TFILEVIEWFORM/TFILEVIEWFORM.txt

Text File | 2003-05-01 | 8.1 KB | 386 lines

object FileViewForm: TFileViewForm
  Left = 204
  Top = 180
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Raw file contents'
  ClientHeight = 543
  ClientWidth = 786
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object nextbutton: TSpeedButton
    Left = 59
    Top = 512
    Width = 38
    Height = 22
    Hint = 'Next cluster in chain'
    Caption = '>'
    ParentShowHint = False
    ShowHint = True
    OnClick = nextbuttonClick
  end
  object frontbutton: TSpeedButton
    Left = 99
    Top = 512
    Width = 54
    Height = 22
    Hint = 'Go to the start cluster'
    Caption = '<<'
    ParentShowHint = False
    ShowHint = True
    OnClick = frontbuttonClick
  end
  object lastbutton: TSpeedButton
    Left = 19
    Top = 512
    Width = 38
    Height = 22
    Hint = 'Previous cluster in chain'
    Caption = '<'
    ParentShowHint = False
    ShowHint = True
    OnClick = lastbuttonClick
  end
  object findnextbutton: TSpeedButton
    Left = 155
    Top = 512
    Width = 94
    Height = 22
    Hint = 'Find next occurrence of search string in this cluster'
    Caption = 'Find Next'
    ParentShowHint = False
    ShowHint = True
    OnClick = findnextbuttonClick
  end
  object copybutton: TSpeedButton
    Left = 254
    Top = 512
    Width = 75
    Height = 22
    Hint = 'Copy cluster text to the clipboard'
    Caption = '&Copy All'
    ParentShowHint = False
    ShowHint = True
    OnClick = copybuttonClick
  end
  object fofslabel: TLabel
    Left = 16
    Top = 112
    Width = 28
    Height = 15
    Hint = 'File offset'
    Caption = 'FOfs'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object cofslabel: TLabel
    Left = 116
    Top = 112
    Width = 28
    Height = 15
    Hint = 'Cluster offset'
    Caption = 'COfs'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object datalabel: TLabel
    Left = 176
    Top = 112
    Width = 28
    Height = 15
    Caption = 'Data'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object offsetlabel: TLabel
    Left = 692
    Top = 112
    Width = 77
    Height = 15
    Alignment = taRightJustify
    Caption = 'offsetlabel'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object startoffilelabel: TLabel
    Left = 15
    Top = 454
    Width = 61
    Height = 16
    Caption = 'Start of file'
  end
  object endoffilelabel: TLabel
    Left = 713
    Top = 454
    Width = 58
    Height = 16
    Alignment = taRightJustify
    Caption = 'End of file'
  end
  object offsetlabel2: TLabel
    Left = 686
    Top = 100
    Width = 84
    Height = 15
    Alignment = taRightJustify
    Caption = 'offsetlabel2'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object fradGroupBox: TGroupBox
    Left = 16
    Top = 8
    Width = 202
    Height = 93
    Caption = 'Raw file data'
    TabOrder = 0
    object fhexRad: TRadioButton
      Left = 24
      Top = 45
      Width = 49
      Height = 17
      Hint = 'Hexadecimal display'
      Caption = 'Hex'
      TabOrder = 1
      OnClick = fhexRadClick
    end
    object fdecrad: TRadioButton
      Left = 24
      Top = 67
      Width = 49
      Height = 17
      Hint = 'Decimal display'
      Caption = 'Dec'
      TabOrder = 2
      OnClick = fhexRadClick
    end
    object fasciirad: TRadioButton
      Left = 24
      Top = 23
      Width = 57
      Height = 17
      Hint = 'Ascii text display'
      Caption = 'Text'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = fhexRadClick
    end
    object compactcb: TCheckBox
      Left = 86
      Top = 23
      Width = 113
      Height = 17
      Hint = 'Make as readable as possible'
      Caption = 'Compact view'
      TabOrder = 3
      OnClick = compactcbClick
    end
  end
  object okbutton: TButton
    Left = 696
    Top = 504
    Width = 75
    Height = 33
    Caption = '&Ok'
    TabOrder = 4
    OnClick = okbuttonClick
  end
  object clusterbox: TGroupBox
    Left = 456
    Top = 8
    Width = 313
    Height = 93
    Caption = 'Cluster'
    TabOrder = 1
    object Label5: TLabel
      Left = 16
      Top = 33
      Width = 82
      Height = 16
      Caption = '# This cluster:'
    end
    object clusterLabel: TLabel
      Left = 190
      Top = 33
      Width = 105
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'clusterLabel'
    end
    object nextclustertitle: TLabel
      Left = 16
      Top = 65
      Width = 83
      Height = 16
      Caption = '# Next cluster:'
    end
    object nextclusterLabel: TLabel
      Left = 198
      Top = 65
      Width = 97
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'nextclusterLabel'
    end
    object inthisfilelabel: TLabel
      Left = 16
      Top = 17
      Width = 67
      Height = 16
      Caption = '# In this file:'
    end
    object fileclusterlabel: TLabel
      Left = 209
      Top = 17
      Width = 86
      Height = 16
      Alignment = taRightJustify
      Caption = 'fileclusterlabel'
    end
    object sectorstitlelabel: TLabel
      Left = 48
      Top = 49
      Width = 57
      Height = 16
      Caption = 'Sector #s'
    end
    object sectorslabel: TLabel
      Left = 112
      Top = 49
      Width = 183
      Height = 16
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'sectorslabel'
    end
  end
  object Tb: TTrackBar
    Left = 9
    Top = 430
    Width = 769
    Height = 25
    Orientation = trHorizontal
    PageSize = 1
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 2
    ThumbLength = 20
    TickMarks = tmBottomRight
    TickStyle = tsNone
    OnChange = TbChange
  end
  object fview: TRichEdit
    Left = 16
    Top = 128
    Width = 753
    Height = 297
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    HideSelection = False
    Lines.Strings = (
      'fview')
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 5
    WordWrap = False
    OnKeyDown = fviewKeyDown
    OnMouseDown = fviewMouseDown
  end
  object memoryfilegroupbox: TGroupBox
    Left = 344
    Top = 472
    Width = 329
    Height = 65
    Caption = 'Memory file (saved clusters)'
    TabOrder = 3
    object memstatuslabel: TLabel
      Left = 8
      Top = 17
      Width = 313
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = 'memstatuslabel'
    end
    object addclusterbutton: TButton
      Left = 14
      Top = 37
      Width = 129
      Height = 22
      Hint = 'Add/Append the current  cluster to the memory file'
      Caption = '&Add this cluster'
      TabOrder = 0
      OnClick = addclusterbuttonClick
    end
    object newfilebutton: TButton
      Left = 154
      Top = 37
      Width = 51
      Height = 22
      Hint = 'Clear the memory file'
      Caption = '&New'
      TabOrder = 1
      OnClick = newfilebuttonClick
    end
    object savefilebutton: TButton
      Left = 216
      Top = 37
      Width = 97
      Height = 22
      Hint = 'Save the memory file (of saved clusters) to a file on disk'
      Caption = '&Save to disk'
      TabOrder = 2
      OnClick = savefilebuttonClick
    end
  end
  object SaveDialog: TSaveDialog
    Left = 112
    Top = 480
  end
end